﻿Public Class WebForm1
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub btn_bmiResult_Click(sender As Object, e As EventArgs) Handles btn_bmiResult.Click

        Dim heightNumber As Double
        Dim weightNumber As Double

        Dim result As Double

        heightNumber = CDbl(tb_HeightNumber.Text)
        weightNumber = CDbl(tb_WeightNumber.Text)

        result = (weightNumber / (heightNumber * heightNumber))

        lbl_bmiResult.Text = result

    End Sub
End Class